home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD007a.dsk / ONE.LINER.MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  818b  |  16 lines
  1. 10  POKE 54,189: POKE 55,158: CALL 1002
  2. 20  POKE 1010,102: POKE 1011,213: POKE 1012,112
  3. 210  HOME 
  4. 220  HTAB 14: INVERSE : PRINT "ONE LINERS": NORMAL 
  5. 225  VTAB 22: HTAB 4: INVERSE : PRINT " EXIT ONE LINERS BY HITTING RESET ": NORMAL 
  6. 230  VTAB 10: HTAB 10: PRINT "1 = JOEL'S ONE LINER #1"
  7. 240  VTAB 12: HTAB 10: PRINT "2 = JOEL'S ONE LINER #2"
  8. 250  VTAB 14: HTAB 10: PRINT "3 = ENOUGH OF THIS"
  9. 260  VTAB 16: HTAB 4: PRINT "WHICH ";: GET R$: PRINT  CHR$(4)
  10. 270  IF R$ = "1" GOTO 1000
  11. 280  IF R$ = "2" GOTO 2000
  12. 285  IF R$ < >"3" GOTO 260
  13. 287  POKE 1010,191: POKE 1011,157: POKE 1012,56
  14. 290  PRINT  CHR$(13); CHR$(4);"RUN KICK.IT.OFF"
  15. 1000  HGR2 : FOR I = 0 TO 1  STEP 0: POKE 28, RND(1) *256: CALL 62454: NEXT 
  16. 2000  HGR2 : FOR I = 0 TO 1  STEP 0: POKE 228, RND(1) *256: HPLOT 0, RND(1) *192 TO 279, RND(0) *192: NEXT